﻿Public Class DanhSachLop

    Private _p1 As Object

    Sub New(ByVal p1 As Object)
        ' TODO: Complete member initialization 
        _p1 = p1
    End Sub

    Sub New()
        ' TODO: Complete member initialization 
    End Sub

   
    Private Sub btnThem_Click(sender As System.Object, e As System.EventArgs) Handles btnThem.Click
        Me.Close()
        Dim frm As ThemLop = New ThemLop(MaLop)
        frm.Show()
    End Sub

    Private Sub btnSua_Click(sender As System.Object, e As System.EventArgs) Handles btnSua.Click
        Dim str As String
        Dim row As Integer = Me.listView1.SelectedItems(0).Index
        str = Me.listView1.Items(row).SubItems(0).Text
        Me.Close()
        Dim frm As New SuaLop()
        frm.Show()
    End Sub

    Private Sub btnXoa_Click(sender As System.Object, e As System.EventArgs) Handles btnXoa.Click
        Dim str As String
        Dim row As Integer = Me.listView1.SelectedItems(0).Index
        str = Me.listView1.Items(row).SubItems(0).Text
        Me.Close()
        Dim frm As New XoaLop()
        frm.Show()

    End Sub

    Private Sub btnThoat_Click(sender As System.Object, e As System.EventArgs) Handles btnThoat.Click
        Me.Close()
    End Sub
End Class